home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / divers / fx_mem.sha < prev    next >
Text File  |  1994-03-01  |  710b  |  13 lines
  1. 10 'FX-MEM V3.0
  2. 20 'NEIBAF-SOFT (C)90
  3. 30 CLS:DEFSEG=0:SETN:G$=CHR$(230):S$=CHR$(29):H$=CHR$(11):R$=CHR$(13):L$=CHR$(12):ERASE P:DIM P(10,4):PRINT "FX-MEM V3.0.....";
  4. 40 ZP=PEEK(1709)+PEEK(1710)*256:HI=PEEK(1715)+PEEK(1716)*256:RP=FRE2+3120
  5. 50 FOR I=0 TO 10:A=ZP+150-I*15:P(I,3)=PEEK(A)+PEEK(A+1)*256:P(I,4)=PEEK(A+3)+PEEK(A+4)*256:P(I,2)=PEEK(A+2):P(I,1)=P(I,4)-P(I,3):NEXT
  6. 60 DI=HI-RP:UT=HI-RP-FRE1:LI=FRE1:DIV=FRE2:UTV=FRE2-FRE0:LIV=FRE0
  7. 70 DEFCHR$(252)="FFFFFFFFFF":DEFCHR$(253)="FF00FF00FF"
  8. 80 CLS
  9. 90 PRINT CHR$(9)L$I$"p0"G$"p9,mEmo,Mem,Graph,Fin:?"R$"RAM:"HI/1024"KB   Free:"STR$(FRE1)"B"TAB(27)"V3.0";
  10. 100 LOCATE25,0:A$=INPUT$(1)
  11. 110 IF A$="M"THEN 180
  12. 120 IF A$="E"THEN N$="ME":A=10:GOTO 230
  13.